14 POKE53280,6
15 PRINT"[147]SPACE DRUECKEN!":FORT=1TO100:NEXT
16 A=1-A:IFATHENPRINT"";:GOTO15
18 GETA$:IFA$=" "THEN20
19 PRINT"[146]":GOTO15
20 A=1-A:POKE53280,A:GETA$:IFA$=""THEN20
21 POKE53280,6:LIST
22 REM  A=1-A:POKE53280,A::::GOTO22